home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / timerh.com / TIMEDEMO.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-01-15  |  1.4 KB  |  38 lines
  1. { =========================================================================== }
  2. { TimeDemo.pas - High resolution timer demonstration        ver 5.5, 01-15-90 }
  3. {                                                                             }
  4. {   Public Domain                                                             }
  5. {   by Jim LeMay                                                              }
  6. {   Eagle Performance Software                                                }
  7. {   P.O. Box 292786                                                           }
  8. {   Lewisville, TX  75029-2786                                                }
  9. {   (214)-539-7855                                                            }
  10. {                                                                             }
  11. { =========================================================================== }
  12.  
  13. program TimeDemo;
  14.  
  15. uses
  16.   Crt,TimerH;
  17.  
  18. var
  19.   ch: char;
  20.  
  21. BEGIN
  22.   TextAttr := Blue shl 4 +Yellow;
  23.   ClrScr;
  24.   Writeln('Press any key for a lap; <ESC> to stop.');
  25.   Timer (Sync);
  26.   Timer (Start);
  27.   repeat
  28.     write(chr(16));
  29.     Ch := ReadKey;
  30.     Timer (Stop);
  31.     writeln ('E.T. =',ElapsedTime:17,' secs: ticks2=',t2:12:0);
  32.     GotoXY (31,wherey); WriteLn ('-ticks1=',t1:12:0);
  33.     GotoXY (31,wherey); WriteLn ('-ticks0=',t0:12:0,' (timer overhead)');
  34.     GotoXY (28,wherey); WriteLn ('E.T. ticks=',(t2-t1-t0):12:0);
  35.     writeln;
  36.   until ch = chr(27)
  37. END.
  38.